home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSAM.EXE / OPENFIWN.PRG < prev    next >
Text File  |  1993-05-04  |  263b  |  15 lines
  1. FUNCTION OpenFiWn
  2. PARAMETER pcObj
  3.   IF TYPE( "WM_PAINT" ) = "U"
  4.     RETURN .T.
  5.   ENDIF
  6.  
  7.   DO CASE
  8.     CASE pcObj = "CL_TYPE_1"
  9.       RELEASE sCL_TYPE_1
  10.       PUBLIC sCL_TYPE_1
  11.       sCL_TYPE_1 = CL_TYPE_1
  12.   ENDCASE
  13. RETURN( .t. )
  14. *-- EOF: OpenFiWn()
  15.